SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00551.ls

Text File | 1995-10-13 | 713 b | 37 lines

on exitFrame
  repeat with x = 1 to 5
    if rollOver(x) then
      set the cursor of sprite x to [565, 566]
    end if
  end repeat
  startTimer()
  repeat while the timer < 100
  end repeat
  cNextShot2(1)
  go(the frame)
end

on keyUp
  set moviemovie to the castNum of sprite 3
  set the sound of cast moviemovie to 0
  if the keyCode = 123 then
    set the movieRate of sprite 3 to 0
  else
    if the keyCode = 124 then
      set the movieRate of sprite 3 to 0
    end if
  end if
end

on keyDown
  set moviemovie to the castNum of sprite 3
  set the sound of cast moviemovie to 0
  if the keyCode = 123 then
    cNextShot(-1)
  else
    if the keyCode = 124 then
      cNextShot(1)
    end if
  end if
end